home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 26
/
026.d81
/
which glue
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
121 lines
10 rem***********************
20 rem*whichglue?*
30 rem*bysandysmith*
40 rem*11september1983*
50 rem***********************
60 vt$="":goto120
70 rem*subroutines*
80 printspc(20-len(a$)/2)a$:return
90 print"[147]"m$(c1);" [193][206][196] ";m$(c2):print
92 print"[195][193][206] [194][197] [199][204][213][197][196] [212][207][199][197][212][200][197][210] [215][201][212][200]:":print:print:return
100 print:print:print:print"[206][207][212][197]: [211][207][205][197] [208][204][193][211][212][201][195][211] [193][210][197] [196][201][198][198][201][195][213][204][212] [212][207]"
102 printspc(7)"[199][204][213][197] [212][207] [211][213][210][198][193][195][197][211] [215][201][212][200] [193][206][217] [212][217][208][197]"
104 printspc(7)"[207][198] [193][196][200][197][211][201][214][197].":return
110 rem*titlepage*
120 print"[147]":a$="[215][200][201][195][200] [199][204][213][197]?":gosub80:print
122 a$="[194][217] [211][193][206][196][217] [211][205][201][212][200]":gosub80:print
130 print:print" [212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [208][210][207][214][201][196][197] [217][207][213] [215][201][212][200] [193]":print
132 print"[204][201][211][212] [207][198] [199][204][213][197][211] [212][200][193][212] [195][193][206] [194][197] [213][211][197][196] [212][207] [211][212][201][195][203]":print
134 print"[212][215][207] [205][193][212][197][210][201][193][204][211] [212][207][199][197][212][200][197][210]. [198][207][210] [201][206][198][207][210][205][193][212][201][207][206]"
140 print"[207][206] [212][200][197] [199][204][213][201][206][199] [208][210][207][208][197][210][212][201][197][211] [193][206][196] [207][212][200][197][210]":print
142 print"[198][193][195][212][207][210][211] [207][198] 10 [194][193][211][201][195] [203][201][206][196][211] [207][198] [193][196][200][197][211][201][214][197][211],":print
144 print"[210][213][206] [212][200][197] [208][210][207][199][210][193][205] [195][193][204][204][197][196] ";chr$(34);"[199][204][213][197] [199][213][201][196][197]";chr$(34)"."
150 print:print" [212][200][197] [201][206][198][207][210][205][193][212][201][207][206] [201][211] [198][210][207][205] [212][200][197] [202][213][206][197] 21,"
152 print"1983 [201][211][211][213][197] [207][198] [198][193][205][201][204][217] [195][201][210][195][204][197] [205][193][199][193][218][201][206][197]."
160 printvt$" [208][210][197][211][211] [193][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197].";:poke198,0:wait198,1
170 rem*initialization*
180 dimgl$(11),m$(10):b$=chr$(7):fori=1to11:readgl$(i):nexti
190 fori=1to10:readm$(i):nexti
200 rem*theselection*
210 print"[147]":print" [211][197][204][197][195][212] [207][206][197] [205][193][212][197][210][201][193][204] [198][210][207][205] [197][193][195][200] [195][207][204][213][205][206]."
220 print"":fori=1to10:
230 print"[157]"i-1;"[157].";m$(i);
232 printspc(17-len(m$(i)))chr$(i+64);".";m$(i);:ifi<>10thenprint
240 nexti:printspc(6)"([198][207][210][205][201][195][193])";
242 printspc(10)"([198][207][210][205][201][195][193])"
250 c1$="":printleft$(vt$,22):print"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 1 [157][157][157][157][157] "
251 print"[145][145][145][145]"spc(5)"^";:poke198,0:wait198,1:getc1$:ifc1$<"0"orc1$>"9"then250
252 c1=val(c1$)+1:ifc1<1orc1>10then250
260 c2$="":printleft$(vt$,22):print"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 2 [157][157][157][157][157] "
261 print"[145][145][145][145] "spc(20)"^":poke198,0:wait198,1:getc2$:ifc2$<"a"orc2$>"j"then260
262 c2=asc(c2$+chr$(0))
270 c2=c2-64:ifc2<1orc2>10then260
280 onc1goto290,300,310,320,330,340,350,360,370,380:rem1stcolumnselection
290 onc2goto400,410,420,430,440,450,460,470,480,490:remwood
300 onc2goto410,500,510,520,530,540,460,550,560,570:remglass
310 onc2goto420,510,510,580,590,600,610,620,630,630:remrubber
320 onc2goto430,520,580,640,650,660,670,680,690,690:remmetal
330 onc2goto440,530,590,650,700,710,710,720,730,730:remleather
340 onc2goto450,540,600,660,710,740,750,760,770,770:remhardplastic
350 onc2goto460,460,610,670,710,750,460,460,460,460:remsoftplastic
360 onc2goto470,550,620,680,720,760,460,780,780,790:remvinyltile
370 onc2goto480,560,630,690,730,770,460,780,800,800:remceramictile
380 onc2goto490,570,630,690,730,770,460,810,800,820:remformica
390 rem*?theglues*
400 gosub90:printgl$(8):printgl$(1):printgl$(4):printgl$(5):printgl$(9)
402 printgl$(2):printgl$(6):printgl$(7):goto840:remwood/wood
410 gosub90:printgl$(4):printgl$(5):printgl$(2):printgl$(10):printgl$(6):goto840:remwood/glass
420 gosub90:printgl$(2):printgl$(9):printgl$(10):goto840:remwood/rubber
430 gosub90:printgl$(2):printgl$(6):printgl$(10):printgl$(4):printgl$(5):goto840:remwood/metal
440 gosub90:printgl$(8):printgl$(2):printgl$(10):printgl$(6):printgl$(9):printgl$(7):goto840:remwood
450 gosub90:printgl$(2):fori=4to6:printgl$(i):nexti:gosub100:goto840:remwood/hardplastic
460 gosub90:printgl$(9):printgl$(2):printgl$(6):gosub100:goto840:remwood/softplastic
470 gosub90:printgl$(11):printgl$(2):printgl$(6):gosub100:goto840:remwood/vinyltile
480 gosub90:printgl$(4):printgl$(5):printgl$(10):printgl$(7):printgl$(6):printgl$(2):goto840:remwood
490 gosub90:printgl$(2):printgl$(1):printgl$(10):printgl$(8):printgl$(6)
492 printgl$(4):printgl$(5):printgl$(7):goto840:remwood/formica
500 gosub90:fori=3to6:printgl$(i):nexti:goto840:remglass/glass
510 gosub90:printgl$(3):printgl$(9):printgl$(2):printgl$(10):goto840:remglass/rubber
520 gosub90:printgl$(3):printgl$(2):printgl$(6):printgl$(10):printgl$(4):printgl$(5):goto840:remglass
530 gosub90:printgl$(3):printgl$(2):printgl$(10):printgl$(9):printgl$(6):printgl$(7):goto840:remglass
540 gosub90:printgl$(4):printgl$(5):printgl$(3):printgl$(6):gosub100:goto840:remglass
550 gosub90:printgl$(2):printgl$(7):printgl$(11):printgl$(6):printgl$(3):gosub100:goto840:remglass
560 gosub90:printgl$(4):printgl$(5):printgl$(10):printgl$(7):printgl$(6):printgl$(3):goto840:remglass
570 gosub90:fori=2to6:printgl$(i):nexti:printgl$(10):goto840:remglass/formica
580 gosub90:printgl$(10):printgl$(3):goto840:remrubber/metal
590 gosub90:printgl$(3):printgl$(2):printgl$(10):printgl$(9):goto840:remrubber/leather
600 gosub90:printgl$(3):printgl$(2):printgl$(9):gosub100:goto840:remrubber/hardplastic
610 gosub90:printgl$(9):printgl$(2):gosub100:goto840:remrubber/softplastic
620 gosub90:printgl$(9):printgl$(2):printgl$(11):printgl$(3):gosub100:goto840:remrubber/vinyl
630 gosub90:printgl$(2):printgl$(9):printgl$(3):printgl$(10):goto840:remrubber/ceramictile
640 gosub90:fori=3to5:printgl$(i):nexti:printgl$(10):printgl$(2):printgl$(6):goto840:remmetal
650 gosub90:printgl$(3):printgl$(10):printgl$(2):printgl$(6):goto840:remmetal/leather
660 gosub90:printgl$(2):printgl$(4):printgl$(5):printgl$(3):gosub100:goto840:remmetal/hplastic
670 gosub90:printgl$(2):printgl$(6):gosub100:goto840:remmetal/softplastic
680 gosub90:printgl$(2):printgl$(6):printgl$(3):gosub100:goto840:remmetal/vinyltile
690 gosub90:printgl$(2):printgl$(6):printgl$(10):printgl$(3):printgl$(4):printgl$(5):goto840:remmetal
700 gosub90:printgl$(2):printgl$(10):printgl$(9):printgl$(6):goto840:remleather/leather
710 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remleather
720 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):printgl$(11):gosub100:goto840:remleather
730 gosub90:printgl$(2):printgl$(10):printgl$(9):printgl$(6):printgl$(3):goto840:remleather/ceram
740 gosub90:printgl$(4):printgl$(5):printgl$(3):printgl$(2):printgl$(6):printgl$(9):gosub100:goto840
750 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(4):printgl$(5):gosub100:goto840
760 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remplastic/vinyl
770 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(4):printgl$(5):printgl$(3):gosub100:goto840
780 gosub90:printgl$(11):printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remvi/vi
790 gosub90:printgl$(11):printgl$(2):printgl$(9):printgl$(6):printgl$(3):printgl$(7):gosub100:goto840
800 gosub90: